(read-quoted-char): Delete format call inside message.

diff --git a/lisp/subr.el b/lisp/subr.el
index 206e415651cfc40107e4443e3cbba6b3cc77cc28..11d22bb8f8f4ebaee5f0ad6e9ab8b12ef60bad3d 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -625,8 +625,7 @@ or three octal digits representing its character code."))
            ((and (<= ?0 char) (<= char ?7))
             (setq code (+ (* code 8) (- char ?0))
                   count (1+ count))
-            (and prompt (message (setq prompt
-                                       (format "%s %c" prompt char)))))
+            (and prompt (setq prompt (message "%s %c" prompt char))))
            ((> count 0)
             (setq unread-command-events (list char) count 259))
            (t (setq code char count 259))))